home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 176-200 / scopedisk180 / arexxtutorial / rexecute / rexecute-startup < prev    next >
Encoding:
Text File  |  1995-03-19  |  828 b   |  37 lines
  1. Prompt "%N.%S> "
  2. path add sys:system sys:utilities s:
  3. ;
  4. ; Test for RAD (Recoverable RAM disk), use RAM otherwise
  5. ;
  6. failat 11
  7. assign > nil: RAD: exists
  8. if warn
  9.   cd ram:
  10. ;
  11. ; Copy common applications to RAM
  12. ;
  13.   if NOT EXISTS :s/Common_Apps
  14.     echo "Creating Application Directory in RAM..."
  15.     makedir ram:s
  16.     makedir ram:s/Common_Apps
  17.     copy all s:Common_Apps to :s/Common_Apps quiet
  18.     copy rexx:RExecute.rexx to :RExecute.rexx quiet
  19.     echo "...copy completed."
  20.   endif
  21. else
  22.   cd rad:
  23. ;
  24. ; Copy common applications to RAD
  25. ;
  26.   if NOT EXISTS :s/Common_Apps
  27.     echo "Creating Application Directory in RAD..."
  28.     makedir rad:s
  29.     makedir rad:s/Common_Apps
  30.     copy all s:Common_Apps to :s/Common_Apps quiet
  31.     copy rexx:RExecute.rexx to :RExecute.rexx quiet
  32.     echo "...copy completed."
  33.   endif
  34. endif
  35. ;
  36. run rx RExecute
  37.